home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-server / wc_CascadeB.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-04  |  5.5 KB  |  146 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wc_CascadeB.c
  5. * RCS:          $Header: wc_CascadeB.c,v 1.4 91/03/14 03:14:29 mayer Exp $
  6. * Description:  XM_CASCADE_BUTTON_WIDGET_CLASS/CASCADE_BUTTON_GADGET_CLASS
  7. * Author:       Niels Mayer, HPLabs
  8. * Created:      Fri Oct 27 21:54:13 1989
  9. * Modified:     Thu Oct  3 23:56:51 1991 (Niels Mayer) mayer@hplnpm
  10. * Language:     C
  11. * Package:      N/A
  12. * Status:       X11r5 contrib tape release
  13. *
  14. * WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. *
  17. * Permission to use, copy, modify, distribute, and sell this software and its
  18. * documentation for any purpose is hereby granted without fee, provided that
  19. * the above copyright notice appear in all copies and that both that
  20. * copyright notice and this permission notice appear in supporting
  21. * documentation, and that the name of Hewlett-Packard and David Betz not be
  22. * used in advertising or publicity pertaining to distribution of the software
  23. * without specific, written prior permission.  Hewlett-Packard and David Betz
  24. * make no representations about the suitability of this software for any
  25. * purpose. It is provided "as is" without express or implied warranty.
  26. *
  27. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  28. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  29. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  30. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  31. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  32. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  33. * PERFORMANCE OF THIS SOFTWARE.
  34. *
  35. * See ./winterp/COPYRIGHT for information on contacting the authors.
  36. * 
  37. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  38. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  39. *
  40. ********************************************************************************
  41. */
  42. static char rcs_identity[] = "@(#)$Header: wc_CascadeB.c,v 1.4 91/03/14 03:14:29 mayer Exp $";
  43.  
  44. #include <stdio.h>
  45. #include <Xm/Xm.h>
  46. #include <Xm/CascadeB.h>
  47. #include <Xm/CascadeBG.h>
  48. #include "winterp.h"
  49. #include "user_prefs.h"
  50. #include "xlisp/xlisp.h"
  51. #include "w_funtab.h"
  52.  
  53. extern Widget Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(); /* w_classes.c */
  54.  
  55. /******************************************************************************
  56.  * (send <cascadebuttonwidget> :highlight <highlight_p>)
  57.  *    ==> returns <cascadebuttonwidget>
  58.  *
  59.  * This method draws the shadow higlight around the cascadebutton if
  60.  * <highlight_p> is true, and unhighlights if <highlight_p> is NIL.
  61.  * 
  62.  * void XmCascadeButtonHighlight (cb, highlight)
  63.  * Widget cb;
  64.  * Boolean highlight;
  65.  ******************************************************************************/
  66. LVAL Xm_Cascade_Button_Widget_Class_Method_HIGHLIGHT()
  67. {
  68.   LVAL self, highlight_p;
  69.   Widget widget_id;
  70.  
  71.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  72.   highlight_p = xlgetarg();
  73.   xllastarg();
  74.   
  75.   XmCascadeButtonHighlight(widget_id, (highlight_p) ? TRUE : FALSE);
  76.   
  77.   return (self);
  78. }
  79.  
  80.  
  81. #ifdef WINTERP_MOTIF_11
  82. /******************************************************************************
  83.  * (send <cascadebuttongadget> :highlight <highlight_p>)
  84.  *    ==> returns <cascadebuttonwidget>
  85.  *
  86.  * This method draws the shadow higlight around the cascadebutton if
  87.  * <highlight_p> is true, and unhighlights if <highlight_p> is NIL.
  88.  * 
  89.  * void XmCascadeButtonGadgetHighlight (Widget cb, Boolean highlight)
  90.  ******************************************************************************/
  91. LVAL Xm_Cascade_Button_Gadget_Class_Method_HIGHLIGHT()
  92. {
  93.   LVAL self, highlight_p;
  94.   Widget widget_id;
  95.  
  96.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  97.   highlight_p = xlgetarg();
  98.   xllastarg();
  99.   
  100.   XmCascadeButtonGadgetHighlight(widget_id, (highlight_p) ? TRUE : FALSE);
  101.  
  102.   return (self);
  103. }
  104. #endif /* WINTERP_MOTIF_11 */
  105.  
  106.  
  107. /******************************************************************************
  108.  *
  109.  ******************************************************************************/
  110. Wc_CascadeB_Init()
  111. {
  112.   LVAL o_XM_CASCADE_BUTTON_WIDGET_CLASS;
  113.   LVAL o_XM_CASCADE_BUTTON_GADGET_CLASS;
  114.   extern LVAL Wcls_Create_Subclass_Of_WIDGET_CLASS(); /* w_classes.c */
  115.   extern      xladdmsg();    /* from xlobj.c */
  116.  
  117.   o_XM_CASCADE_BUTTON_WIDGET_CLASS =
  118.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_CASCADE_BUTTON_WIDGET_CLASS",
  119.                      xmCascadeButtonWidgetClass);
  120.  
  121.   xladdmsg(o_XM_CASCADE_BUTTON_WIDGET_CLASS, ":HIGHLIGHT",
  122.        FTAB_Xm_Cascade_Button_Widget_Class_Method_HIGHLIGHT);
  123.  
  124.   o_XM_CASCADE_BUTTON_GADGET_CLASS =
  125.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_CASCADE_BUTTON_GADGET_CLASS",
  126.                      xmCascadeButtonGadgetClass);
  127.  
  128. #ifdef WINTERP_MOTIF_11
  129.   xladdmsg(o_XM_CASCADE_BUTTON_GADGET_CLASS, ":HIGHLIGHT",
  130.        FTAB_Xm_Cascade_Button_Gadget_Class_Method_HIGHLIGHT);
  131. #else                /* MOTIF 1.0 */
  132.   xladdmsg(o_XM_CASCADE_BUTTON_GADGET_CLASS, ":HIGHLIGHT",
  133.        FTAB_Xm_Cascade_Button_Widget_Class_Method_HIGHLIGHT);
  134. #endif                /* WINTERP_MOTIF_11 */
  135.  
  136. #ifdef WINTERP_MOTIF_11
  137.   /*
  138.    * share this method w/ XmRowColumn... see 
  139.    * wc_RowColumn.c:Xm_Row_Column_Widget_Class_Method_GET_SUB_MENU_WIDGET()
  140.    * for details
  141.    */
  142.   xladdmsg(o_XM_CASCADE_BUTTON_GADGET_CLASS, ":GET_SUB_MENU_WIDGET",
  143.        FTAB_Xm_Row_Column_Widget_Class_Method_GET_SUB_MENU_WIDGET);
  144. #endif                /* WINTERP_MOTIF_11 */
  145. }
  146.